home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_124_setProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  699 b   |  19 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vValue to the text of member "Changing Property SetProp Input Field 2"
  6.     set vValue to checkValue(vValue)
  7.     set vProperty to the text of member "Changing Property SetProp Input Field 1"
  8.     set vProperty to checkValue(vProperty)
  9.     if (vValue <> EMPTY) and (vProperty <> EMPTY) then
  10.       if voidp(getaProp(gDefaultPropList, vProperty)) then
  11.         displayError("<For non-existent property in setProp>")
  12.       else
  13.         setProp(gDefaultPropList, vProperty, vValue)
  14.         set the text of member "Changing Property SetProp Display Field 1" to string(gDefaultPropList)
  15.       end if
  16.     end if
  17.   end if
  18. end
  19.